home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0451.PRG < prev    next >
Text File  |  1988-06-18  |  896b  |  29 lines
  1. *************************************************************
  2. *     ML0451.CMD - ROUTINE TO DELETE FROM ALL RECORDS       *    9/24/84
  3. *************************************************************
  4. SET TALK OFF
  5. ERASE
  6. STORE     0 TO ZIPLO
  7. STORE 99999 TO ZIPHI
  8.  
  9. @  8,10 SAY '     DELETE Selected Records from all Records'
  10. @ 14,10 SAY 'Input ZIP CODE Range   ' GET ZIPLO PICTURE '99999'
  11. @ 14,41 SAY '   TO  ' GET ZIPHI PICTURE '99999'
  12. READ
  13. CLEAR GETS
  14.  
  15. STORE 'Y'    TO SEL
  16. @ 17,10 SAY 'Are you Sure you Wish to Continue? (Y/N) 'GET SEL PICTURE '!'
  17. READ
  18. IF SEL='Y'
  19.     SET TALK ON
  20.     DELETE ALL FOR VAL(ZIP)>=ZIPLO .AND. VAL(ZIP)<=ZIPHI
  21.     SET TALK OFF
  22.     ENDIF
  23. RELEASE ZIPHI,ZIPLO
  24. RETURN
  25. SET TALK OFF
  26.     ENDIF
  27. RELEASE ZIPHI,ZIPLO
  28. RETURN
  29.